home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 January & February / Amiga-CD 1997 #1-2.iso / aminet / 12_96 / lha-archiv / easyrcs13.lha / easyrcs_1.3 / Install < prev    next >
Text File  |  1996-09-10  |  4KB  |  151 lines
  1. ; Script d'installation pour EasyRCS
  2. ; Yann Muller
  3.  
  4. ; ###### Intro ######
  5. (message "\n\nEasyRCS"
  6.          "\n\nAn Intuition interface for the Amiga port\nof Revision Control System (HGWRCS)\n\n"
  7.          "\nEasyRCS : © Yann Muller\n\nHWGRCS by Heinz Wrobel" )
  8.  
  9. ; ###### Destination ######
  10. (set ProgDest "RCS:/")
  11. (if (exists "SC:" (noreq))
  12.     (set ProgDest "SC:c")
  13. )
  14.  
  15. (set ProgDestDir
  16.     (askdir
  17.         (prompt "\nWhere do you want to copy the program? No directory will be created!\n")
  18.         (help "You must indicate a place to copy the program!"
  19.               "If you have SASC a good place would be \"SC:C\", otherwise the HWGRCS directory may be a good choice. Or whereever you want indeed!!!")
  20.         (default ProgDest)
  21.     )
  22. )
  23.  
  24. (copyfiles
  25.     (source "EasyRCS")
  26.     (dest   ProgDestDir)
  27.     (infos)
  28. )
  29.  
  30. ; ####### Project icon ######
  31. (set IconDest ProgDestDir)
  32. (if (exists "SC:" (noreq))
  33.     (set IconDest "SC:starter_project")
  34. )
  35.  
  36. (set IconDestDir
  37.     (askdir
  38.         (prompt "\nWhere do you want to copy the project icon?\n")
  39.         (help "You must indicate a place to copy the project icon!"
  40.               "If you have SASC a good place would be \"SC:starter_project\", otherwise the same directory as the program. Or whereever you want indeed!!!")
  41.         (default IconDest)
  42.     )
  43. )
  44.  
  45. (set IconName "EasyRCS")
  46. (if ( = ProgDestDir IconDestDir )
  47.     (set IconName "Easy_RCS")
  48. )
  49.  
  50. (copyfiles
  51.     (source  "Easy_RCS.info")
  52.     (dest    IconDestDir)
  53.     (newname (cat IconName ".info"))
  54. )
  55.  
  56. (tooltype
  57.     (dest (tackon IconDestDir IconName))
  58.     (setdefaulttool (tackon ProgDestDir "EasyRCS"))
  59.     (noposition)
  60. )
  61.  
  62. ; ###### Locale ######
  63. (set Language
  64.     (askchoice
  65.         (prompt  "\nSelect the language catalog you wish to install.\nEnglish is buit-in.\n")
  66.         (help    "With the support of the locale.library EasyRCS is able to support the language of your choice (as long as the corresponding catalog as been created!).")
  67.         (choices "English" "Français" )
  68.         (default 0)
  69.     )
  70. )
  71.  
  72. (if ( > Language 0 )
  73. (    (set ch
  74.         (askchoice
  75.             (prompt "\nWhere should the catalog(s) be installed?\n")
  76.             (help "The catalogs for the localisation can be copied to the program directory or to the 'locale' directory of your system disk. It is your choice.")
  77.             (choices "Locale:" "Program directory")
  78.             (default 0)
  79.         )
  80.     )
  81.     (debug "dest=" ch)
  82.  
  83.     (set CatDest "Locale:")
  84.     (if ( = ch 1 )
  85.         (set CatDest ProgDestDir)
  86.         (if (NOT (exists (tackon ProgDestDir "Catalogs") (noreq) ))
  87.             (makedir (tackon ProgDestDir "Catalogs"))
  88.         )
  89.     )
  90.  
  91.     (if ( = Language 1)
  92.         (copyfiles
  93.             (source "Catalogs/Français/EasyRCS.catalog")
  94.             (dest   (tackon CatDest "Catalogs/Français") )
  95.         )
  96.     )
  97. ))
  98.  
  99. ; ###### textField ######
  100. (copylib
  101.     (source "Support/TextField.gadget")
  102.     (dest   "SYS:Classes/Gadgets")
  103. )
  104.  
  105. ; ###### EasyRexx.library ######
  106. (copylib
  107.     (prompt "The 'EasyRexx.library' is needed if you want to make use of the ARexx capabilities of the program.")
  108.     (source "Support/easyrexx.library")
  109.     (dest   "Libs:")
  110. )
  111.  
  112. ; ###### Documentation ######
  113. (set DefDocDest ProgDestDir)
  114. (if (exists "Docs:" (noreq))
  115.     (set ProgDest "Docs:")
  116. )
  117.  
  118. (set DocDestDir
  119.     (askdir
  120.         (prompt "\nWhere do you want to copy the manual?\n")
  121.         (help "Specify a destination directory for the AmigaGuide manual.")
  122.         (default DefDocDest)
  123.     )
  124. )
  125.  
  126. (copyfiles
  127.     (source  "Docs/EasyRCS_E.guide")
  128.     (dest    DocDestDir)
  129.     (newname ("EasyRCS.guide"))
  130.     (infos)
  131. )
  132.  
  133.  
  134. ; ###### ARexx scripts ######
  135. (set RexxDestDir
  136.     (askdir
  137.         (prompt "\nWhere do you want to copy the ARexx scripts?\n")
  138.         (help "Specify the place to copy the ARexx scripts to. Rexx: is a good place.")
  139.         (default "Rexx:")
  140.     )
  141. )
  142.  
  143. (copyfiles
  144.     (source "ARexx")
  145.     (dest   RexxDestDir)
  146.     (all)
  147. )
  148.  
  149. (set @default-dest "")
  150.  
  151.